Viết chương trình đọc từ bàn phím một loạt số nguyên cho đến khi nhập số 0.Hãy tính và in ra trung bình cộng của số chia hết cho 3 và 2(lấy 2 chữ số thập phân).
viết chương trình nhập n số nguyên từ bàn phím. tính và in ra trung bình cộng các số chia hết cho 5 và 7
Viết phương trình đọc số nguyên N từ bàn phím .Tính và in ra giá trị trung bình cộng của các số chia hết cho 3 và 5
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
Viết chương trình nhập một dãy gồm n số thực từ bàn phím. Tính tổng và trung bình cộng các số đó. In kết quả tính được ra màn hình.
Mọi người giúp em bài này với ạ!
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day la: ',t:4:2);
writeln('Trung binh cong cua day la: ',t/n:4:2);
readln;
end.
Viết chương trình nhập từ bàn phím hai số nguyên a và b. Thực hiện tính và in ra màn hình kết quả của phép tính (chỉ lấy 2 chữ số sau phần thập phân). Giúp mình với Pascal nha mn
Hãy viết chương trình pascal nhập tên và lớp của học sinh, nhập từ bàn phím dãy số nguyên gồm n phần tử(n nhập từ bàn phím) n<12, tính trung bình cộng của dãy số trên và in ra màn hình, in ra màn hình các số nguyên tố của dãy số trên.
program TinhTBCTimSoNT;
var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;
function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;
begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);
// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;
// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;
// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.
c1 Viết chương trình in ra màn hình trung bình cộng của 3 số dương a,b,c(a,b,c được nhập từ bàn phím)
c2 Viết chương trình tính chu vi và diện tích hình chữ nhật có chiều dài 2 cạnh a và b(được nhập từ bàn phím in ra kết quả màn hình)
Hộ mình với ạ đang cần gấp
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<(a+b+c)/3;
return 0;
}
Mn ơi giúp em với ạ :((
Viết chương trình nhập vào ba số nguyên mũ bình phương từ bàn phím. In ra màn hình trung bình cộng của ba số đó
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
a:=sqr(a);
b:=sqr(b);
c:=sqr(c);
writeln((a+b+c)/3:4:2);
readln;
end.